﻿Public Class FrmQuanLyNhanVien

    Private Sub FrmQuanLyNhanVien_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'ẩn hoặc hiện "Phân quyền "
        'LlbPhanquyen.Hide()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnThongTinNhanVien.Click
        Me.Close()
        Dim childForms As FrmNhanVien = New FrmNhanVien
        childForms.MdiParent = FrmPMQuanLyNhaSach
        childForms.Show()
        childForms.Location = New Point(234, 122)

    End Sub

    Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LlbPhanquyen.LinkClicked

        Me.Close()
        Dim childForms As FrmPhanQuyen = New FrmPhanQuyen
        childForms.MdiParent = FrmPMQuanLyNhaSach
        childForms.Show()
        childForms.Location = New Point(234, 122)
    End Sub

    Private Sub BtnThoat_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnThoat.Click
        Me.Close()
    End Sub
End Class